home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.20 / cycle3 / anleitung next >
Text File  |  1995-04-22  |  2KB  |  48 lines
  1.  
  2.  
  3.  
  4.  
  5.                             Liebe Purityleser(innen) !
  6.  
  7.  
  8. Nachdem inzwischen wohl alle wissen, wie Cyclegadgets realisiert werden,
  9. stellt sich nur noch die Abfrage als relativ umständlich dar. Doch ab
  10. heute kein Problem mehr. Ich habe ein wenig geknobelt und eine ganz einfache
  11. Lösung gefunden, die viel weniger Aufwand und Schreibarbeit bedeutet als
  12. früher. Es wird wie immer für den Zustand des Gadgets eine Integer- oder
  13. Shortvariable deklariert. Außerdem ein Array mit Strings, in dem die ganzen
  14. möglichen Texte, mit denen das Gadget beschriftet werden soll abgelegt wer-
  15. den. Will man also ein Gadget mit 20 verschiedenen Cycletexten haben dekla-
  16. riert man:  Type textfeld20 = ARRAY [1..20] OF STRING;
  17. Das Textfeld muß dann natürlich auch belegt werden. Siehe Beispielprogramm.
  18. (Kickpascal Spezialität die Arraybelegung)
  19. Das Gadget generieren wir am einfachsten mit der Unit rogergads1 (von mir)
  20. umranden es mit gbord und wir dürfen natürlich nicht vergessen den Zustand
  21. vorher festzulegen.
  22.  
  23. Wenn wir die Message Gadgetup+gadgetdown abfragen und den GadgetID unseres
  24. Cyclegadgets gefunden haben, dann machen wir in den nächsten 4 Zeilen
  25. folgendes:
  26.         {1}     zustand:=zustand MOD 20;
  27.         {2}     inc(zustand);
  28.         {3}     it1.itext:=texte[zustand];
  29.         {4}     REFRESHGADGETS(^gad1,Win,NIL);
  30.  
  31. {1} Der Rest der Teilung mit der möglichen Anzahl der Zustände ( in
  32.     unserem Fall 20)
  33.  
  34. {2} Den Zustand, der durch {1} immer kleiner 20 bleibt erhöhen.
  35.  
  36. {3} Den Intuitext des Cyclegadgets neu belegen.
  37.  
  38. {4} Den neuen Intuitext neu zeichnen.
  39.  
  40.  
  41. So, ich hoffe Ihr habt das einigermaßen kapiert, aber schaut doch einfach
  42. mal ins Beispielprogramm rein. Manche schauen sowieso nur ins Beispiel-
  43. programm. ( Hallo Cengiz ! Gell ?)
  44.  
  45.   Bis zum nächsten Proggi
  46.  
  47.                        Michael Äh ... Nick of Røgersøft   [8.11.93]
  48.